#Algo de time out des joueurs dans la table
source supprimer_joueur.tcl
source supprimer_j_ast.tcl

proc algo_time_out_joueurs {} {
	global table_joueurs
	global seuil
	foreach i [lindex $table_joueurs 0] {
		set heure_actuelle [clock seconds]
		set heure_joueur [lindex $i 8]
		if {[expr $heure_actuelle-$heure_joueur]>$seuil} {
			foreach j [lindex $table_ast 0] {
				supprimer_j_ast $i [lindex $j 0]
			}
			supprimer_joueur $i
	}
}
